home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / BUSINESS / D_SHOW20.ARJ / SHOW20A.EXE / PROMOTE1.SHW < prev    next >
Text File  |  1991-08-01  |  7KB  |  316 lines
  1. ***********************************************************************
  2. * Sciptname..:  PROMOTE1.SHW                                          *
  3. * Date.......:  1st. Aug. 1991, by RMP DATA.                          *
  4. * Purpose....:  Promotion for DATASHOW v. 2.0A, as an example script. *
  5. ***********************************************************************
  6.  
  7. * Other files involved:
  8. * sound1.shw
  9. * scroll1.shw
  10. * promote1.gra, hugo1.gif    * Graphic files
  11. * entrance.snd, napoleon.snd * Music files
  12. * show1.scr - show7.scr      * Captured screen files
  13.  
  14. SET ESCAPE ON                * Make sure script can be stopped any time
  15. SET CURSOR ON                * Make cursor visible at start
  16. TIMEOUT 10                   * Set seconds to wait for keyboard (WAITKEY)
  17.  
  18. VARIABLE counttimes 1        * Create variable to count number of runs
  19.  
  20. ATTRIBUTE 31                 * Set to blue background, white forground
  21. BACKGROUND 1                 * Set the background to blue
  22. FOREGROUND 15                * Set the foreground to white
  23. CLEARSCREEN
  24.  
  25. DELAYFACTOR 5                * Have writing delayed, typewriter style
  26.  
  27. GOXY 10 4
  28. WRITE "Welcome to a presentation of DATASHOW..."
  29.  
  30. SET CURSOR OFF
  31.  
  32. GOXY 10 10
  33. LINE 60
  34.  
  35. GOXY 10 18
  36. LINE 60
  37.  
  38. GOXY 1 12
  39.  
  40. SPEAK "W-E-L-L-K-U-M-E"      * Talk via system speaker
  41.  
  42. SPEAK "T-OO D-A-TH-A-S-H-U-W"
  43.  
  44. DEFINE
  45. ///////    //////   ///////   //////    ///////  //    //  ///////  //  //  //
  46. //    //  //    //    //     //    //  //        //    //  //   //  //  //  //
  47. //    //  ////////    //     ////////  ////////  ////////  //   //  //  //  //
  48. //    //  //    //    //     //    //        //  //    //  //   //   // // //
  49. ///////   //    //    //     //    //  ///////   //    //  ///////    //////
  50. ENDDEFINE
  51.  
  52. MOTION LEFT 0                * Move the defined area across screen
  53.  
  54. WAIT 1
  55.  
  56. MOTION RIGHT 79
  57.  
  58. WAIT 2
  59.  
  60. SHOWSCREEN "show1.scr"       * Show screen saved with CAPTURE
  61.  
  62. MUSIC PROCESS "entrance.snd"
  63.  
  64. WAIT 1
  65.  
  66. SET CURSOR ON
  67.  
  68. BACKGROUND 3                 * Set the background to cyan
  69. CLEARSCREEN
  70.  
  71. GOXY 1 20
  72. WINDOW 79 4
  73. BACKGROUND 7
  74. CLEARSCREEN
  75.  
  76. GOXY 1 1
  77. WINDOW 79 24
  78.  
  79. ATTRIBUTE 63                 * Set to cyan background, white forground
  80.  
  81. GOXY 6 2
  82. BOX 70 14
  83.  
  84. GOXY 10 4
  85. WRITE "Together with the resident program CAPTURE, you can create pre-"
  86. GOXY 10 6
  87. WRITE "sentations fast and easy. You CAPTURE screens from programs and"
  88. GOXY 10 8
  89. WRITE "show them from DATASHOW like this screen to be shown here......"
  90.  
  91. WAIT 2
  92.  
  93. GETSCREEN                    * Save the current screen to a buffer
  94. SET CURSOR OFF
  95. SHOWSCREEN "show2.scr"       * Show screen saved with CAPTURE
  96. WAIT 2
  97. SPEAK "C-A-P-T-U-R-E"
  98. WAIT 1
  99. SPEAK "AE"
  100. SPEAK "S-K-R-EE-EE-N"
  101. WAIT 2
  102. SET CURSOR ON
  103. PUTSCREEN                    * Retrieve saved screen from the buffer
  104.  
  105. GOXY 10 10
  106. WRITE "It is a simple task  to create scripts  and have them  shown on"
  107. GOXY 10 12
  108. WRITE "the screen  with encredible  flexibility.  Scripts are ordinary"
  109. GOXY 10 14
  110. WRITE "ASCII files.  Here the easy method to make scripts is shown..."
  111.  
  112. SPEAK "P-U-S-H"
  113. WAIT 1
  114. SPEAK "A-N-I"
  115. WAIT 1
  116. SPEAK "K-E-I"
  117.  
  118. GOXY 10 20
  119. WAIT "Push any key"          * Wait for any key to be pushed or TIMEOUT secs
  120.  
  121. SET CURSOR OFF
  122.  
  123. SHOWSCREEN "show3.scr"       * Show screen saved with CAPTURE
  124. WAIT 4
  125.  
  126. SHOWSCREEN "show4.scr"       * Show screen saved with CAPTURE
  127. WAIT 4
  128.  
  129. SHOWSCREEN "show5.scr"       * Show screen saved with CAPTURE
  130. WAIT 4
  131.  
  132. SET TEXTSOUND ON
  133.  
  134. BACKGROUND 4                 * Set the background to red
  135. CLEARSCREEN
  136. GOXY 10 4
  137. WRITE "You can Also write your scripts to a printer!"
  138. WAIT 3
  139.  
  140. SHOWSCREEN "show6.scr"       * Show screen saved with CAPTURE
  141. WAIT 2
  142.  
  143. BACKGROUND 3                 * Set the background to cyan
  144. GOXY 13 5
  145. WRITE "PROMOTE1.SHW"
  146. WAIT 3
  147.  
  148. SET TEXTSOUND OFF
  149. DELAYFACTOR 0
  150.  
  151. CLEARSCREEN
  152. GOXY 10 10
  153. BOX 32 2
  154. GOXY 11 11
  155. WRITE "You can create single sounds..."
  156.  
  157. VARIABLE controlloop 1       * Create variable to control loops
  158.  
  159. MARK 1                       * Create a mark that can be jumped to
  160.  
  161. VARIABLE soundloop 1         * Create variable to control sound
  162.  
  163. DO "sound1.shw"              * Call another (sub) program
  164.  
  165. RELEASE soundloop            * Clean up after us, for next time round
  166.  
  167. SCROLL DOWN
  168.  
  169. IFVARIABLE controlloop 3 DO JUMPMARK 2
  170.  
  171. INCREASE controlloop 1
  172.  
  173. JUMPMARK 1
  174.  
  175. MARK 2                       * Create a mark that can be jumped to
  176.  
  177. RELEASE controlloop          * Clean up after us, for next time round
  178.  
  179. WAIT 1
  180.  
  181. GOXY 20 8
  182. WRITE "Or play songs, that you write yourself!"
  183. GOXY 20 9
  184. LINE 38
  185. MUSIC PROCESS "napoleon.snd"
  186.  
  187. WAIT 1
  188.  
  189. BACKGROUND 2                 * Set the background to green
  190. CLEARSCREEN
  191. GOXY 10 8
  192. WRITE "Besides this you can control a lot of things yourself.  You can"
  193. GOXY 10 10
  194. WRITE "draw your own pictures  or  devellop your own logo in DATASHOW."
  195. GOXY 10 12
  196. WRITE "For this purpose there is a menu for graphic drawing..."
  197. WAIT 6
  198.  
  199. SHOWSCREEN "show7.scr"       * Show screen saved with CAPTURE
  200. WAIT 4
  201.  
  202. DELAYFACTOR 5
  203. GOXY 26 12
  204. WINDOW 50 5
  205. CLEARSCREEN
  206. FOREGROUND 1
  207. GOXY 26 12
  208. ATTRIBUTE 47                 * Set to green background, white forground
  209. BOX 50 5
  210. GOXY 3 3
  211. WRITE "By selecting F4 you can draw your own drawings,"
  212. GOXY 3 4
  213. WRITE "and then display them from a script like this.."
  214. WAIT 4
  215. GOXY 1 1
  216. WINDOW 79 24
  217.  
  218. GRAPHICS "promote1.gra" GRA
  219.  
  220. CLEARSCREEN
  221. GOXY 10 10
  222. WRITE "You can also show GRAPHICs created from other programs."
  223. GOXY 10 12
  224. WRITE "Here DataShow display a screen saved in the PCX format -"
  225. GOXY 10 14
  226. WRITE "saved from e.g. the program PaintBrush (TM)."
  227. WAIT 4
  228. GRAPHICS "chess.pcx" PCX
  229.  
  230. CLEARSCREEN
  231. GOXY 10 10
  232. WRITE "AND here DataShow display a screen saved in the GIF"
  233. GOXY 10 12
  234. WRITE "format; made by CompuServe; with a wealth of files."
  235. WAIT 4
  236. GRAPHICS "hugo1.gif" GIF
  237.  
  238. SET GRAPHICS ON
  239.  
  240. BACKGROUND 1
  241. FOREGROUND 12
  242. CLEARSCREEN
  243.  
  244. DELAYFACTOR 4
  245.  
  246. GOXY 5 8
  247. WRITE "NEW in DataShow scripts:"
  248. GOXY 5 12
  249. WRITE "Now you can also stay in graphics mode"
  250. GOXY 5 16
  251. WRITE "- and most commands work as in text mode!"
  252. WAIT 3
  253.  
  254. BACKGROUND 6
  255. FOREGROUND 14
  256. CLEARSCREEN
  257. GOXY 10 5
  258. WRITE "Remember to register DataShow. You'll then recieve:"
  259. WAIT 2
  260. DELAYFACTOR 0
  261. FOREGROUND 11
  262. GOXY 12 9
  263. WRITE "- A Runtime version called RUNSHOW for distribution of scripts"
  264. WAIT 3
  265. GOXY 12 11
  266. WRITE "- A Manual that can be printed on a printer for overview"
  267. WAIT 3
  268. GOXY 12 13
  269. WRITE "- A Utility package for making more music files"
  270. WAIT 3
  271. GOXY 12 15
  272. WRITE "- And more music and graphics files"
  273. WAIT 3
  274. FOREGROUND 14
  275. GOXY 10 19
  276. WRITE "See the READ.ME ascii file for further information!"
  277. WAIT 4
  278.  
  279. SET GRAPHICS OFF
  280.  
  281. DO "scroll1.shw"              * Call another (sub) program
  282.  
  283. FOREGROUND 15
  284.  
  285. GOXY 1 10
  286. WRITE "This was run number: "
  287. GOXY 22 10
  288. WRITE counttimes
  289. SPEAK counttimes
  290. WAIT 1
  291. SPEAK "T-I-M-E-S"
  292. WAIT 1
  293.  
  294. GOXY 10 13
  295. WRITE "Now this presentation starts over again, but you can stop it at"
  296. GOXY 10 15
  297. WRITE "any time you wish by pressing the escape key.  Then in DATASHOW"
  298. GOXY 10 17
  299. WRITE "you can try all the marvelous things yourself!   Just type SHOW"
  300. GOXY 10 19
  301. WRITE "at the operating system prompt, and you can try out DataShow."
  302. WAIT 1
  303.  
  304. GOXY 10 22
  305. WRITE "That's all folks"
  306.  
  307. SPEAK "TH-A-T-S AH-L-L F-OH-L-K-S"
  308.  
  309. WAIT 8
  310.  
  311. SET CURSOR ON
  312.  
  313. INCREASE counttimes 1
  314.  
  315. CONTINUE
  316.